home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / kowin / font / fonted31.lzh / fed3asm.s next >
Text File  |  1990-11-12  |  2KB  |  100 lines
  1. ***************************************
  2. *****ＦＯＮＴＥＤ３***ver*1************
  3. ***************************************
  4. ************1990*by*小笠原博之*********
  5. ***************************************
  6. *******************SPS0783*COR.********
  7. ***************************************
  8. ***************************************
  9.  
  10.         .xdef    _shiftL
  11.         .xdef    _shiftR
  12.         .xdef    _shiftU
  13.         .xdef    _shiftD
  14.         .xdef    _revH
  15.         .xdef    _revV
  16.         .xdef    _revall
  17.  
  18.         .text
  19. ***************
  20. _shiftL:
  21. ***************
  22.         move.l    4(sp),a0
  23.         moveq.l    #15,d1
  24. shiftL_loop:
  25.         rol.w    (a0)+
  26.         dbra    d1,shiftL_loop
  27.  
  28.         rts
  29. ***************
  30. _shiftR:
  31. ***************
  32.         move.l    4(sp),a0
  33.         moveq.l    #15,d1
  34. shiftR_loop:
  35.         ror.w    (a0)+
  36.         dbra    d1,shiftR_loop
  37.  
  38.         rts
  39. ***************
  40. _shiftU:
  41. ***************
  42.         move.l    4(sp),a0
  43.         moveq.l    #14,d1
  44.         move.w    (a0),d0
  45. shiftU_loop:
  46.         move.w    2(a0),(a0)+
  47.         dbra    d1,shiftU_loop
  48.  
  49.         move.w    d0,(a0)
  50.         rts
  51. ***************
  52. _shiftD:
  53. ***************
  54.         move.l    4(sp),a0
  55.         moveq.l    #14,d1
  56.         lea    32(a0),a0
  57.         move.w    -2(a0),d0
  58. shiftD_loop:
  59.         move.w    -4(a0),-(a0)
  60.         dbra    d1,shiftD_loop
  61.  
  62.         move.w    d0,-(a0)
  63.         rts
  64. ***************
  65. _revH:
  66. ***************
  67.         move.l    4(sp),a0
  68.         moveq.l    #15,d1
  69. revH_loop0:
  70.         moveq.l    #15,d2
  71. revH_loop1:
  72.         lsl.w    (a0)
  73.         roxr.w    #1,d0
  74.         dbra    d2,revH_loop1
  75.         move.w    d0,(a0)+
  76.         dbra    d1,revH_loop0
  77.         rts
  78. ***************
  79. _revV:
  80. ***************
  81.         move.l    4(sp),a0
  82.         moveq.l    #7,d1
  83.         lea    32(a0),a1
  84. revV_loop:
  85.         move.w    (a0),d0
  86.         move.w    -2(a1),(a0)+
  87.         move.w    d0,-(a1)
  88.         dbra    d1,revV_loop
  89.         rts
  90. ***************
  91. _revall:
  92. ***************
  93.         move.l    4(sp),a0
  94.         moveq.l    #15,d1
  95. revall_loop:
  96.         not.w    (a0)+
  97.         dbra    d1,revall_loop
  98.         rts
  99.  
  100.